home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / demos / 32 / mailstck.cmd < prev    next >
Encoding:
Text File  |  1986-07-17  |  638 b   |  20 lines
  1. * MAILSTCK.PRG
  2. * CHECKS FOR A VALID STATE 
  3. * CALLED AS A GET FILE
  4. IF X.ADD
  5.     X.STATE = Y.STATE
  6. ELSE
  7.     X.STATE = STATE
  8. ENDIF
  9. IF AT(X.STATE,"AK,HI,WA,OR,CA,ID,NV,AZ,UT,MT,WY,CO,NM,ND,SD,NB,KS,OK,TX,MI,IA,MO,AR,LA,WI,IL,MS,MI,ID,KT,TN,AL,OH,WV,GA,FL,SC,NC,VR,MD,DE,NJ,PA,NY,CN,RI,MA,VT,NH,MA") = 0
  10.     ASSIGN USERSTAT(0) | STAY IN FIELD
  11.     BEEP
  12.     @ 24,00 SAY "NOT A VALID STATE, PLEASE RE-ENTER. "
  13.     RELEASE X.STATE
  14.     RETURN
  15. ENDIF
  16. ASSIGN USERSTAT(255) | GO DIRECTION OF KEY
  17. @ 24,00 
  18. RELEASE X.STATE
  19. RETURN
  20. əəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə